﻿
Public Class IDREF
    Protected value As String

    Public Overrides Function ToString() As String
        Return value
    End Function

    Public Shared Widening Operator CType(ByVal this As IDREF) As String
        Return this.value
    End Operator

    Public Shared Widening Operator CType(ByVal this As String) As IDREF
        Dim rtn As IDREF = Nothing
        rtn = New IDREF()
        rtn.value = this

        Return rtn
    End Operator
End Class
